home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / macro / mpascal / errors.ged < prev    next >
Encoding:
Text File  |  1997-02-16  |  341 b   |  23 lines
  1. /*
  2. ** $VER: errors 0.001 (10 Sep 1994) ***
  3. **
  4. ** (c) © 1994 Oliver Clouth
  5. **
  6. */
  7.  
  8. host = ADDRESS()                              /* get GED's port    */
  9.  
  10. IF show('p', 'MPASCAL') THEN
  11.  
  12.     do
  13.         ADDRESS MPASCAL
  14.         "errors"
  15.     end
  16. else 
  17.     do
  18.         ADDRESS (host)
  19.         'REQUEST BODY "Couldn''t launch MPascal ?!"'
  20.     end
  21.  
  22. EXIT
  23.